(mail-strip-quoted-names): Preserve white space

after comma when stripping text outside of <> delims.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 26ad072293ee1652de232b66ee7f8cff57bbdaf4..80a1fbbc9ce37297448074f7cb3b28027b140b93 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -116,7 +116,7 @@ Return a modified address list."
                 (mail-string-delete address
                                     pos (match-end 0)))))
        ;; Retain only part of address in <> delims, if there is such a thing.
-       (while (setq pos (string-match "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)"
+       (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)"
                                      address))
         (let ((junk-beg (match-end 1))
               (junk-end (match-beginning 2))